home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / TTFNSRC0.ZIP / s / MCStr < prev    next >
Encoding:
Text File  |  1994-08-29  |  633 b   |  53 lines
  1. ;    generated by Richard Sargeant, 21:59:17 15-Aug-1994
  2.  
  3. a1 RN 0
  4. a2 RN 1
  5. a3 RN 2
  6. a4 RN 3
  7. v1 RN 4
  8. v2 RN 5
  9. v3 RN 6
  10. v4 RN 7
  11. v5 RN 8
  12. v6 RN 9
  13. sl RN 10
  14. fp RN 11
  15. ip RN 12
  16. sp RN 13
  17. lr RN 14
  18. pc RN 15
  19.  
  20.     AREA |S$$code|, CODE, READONLY
  21.  
  22. ; *******************************************
  23.  
  24. ; Copies a variable, but in lower case
  25. ; by Richard Sargeant
  26.  
  27. ; /* prototype */ MCStr_cpy_lower(char *put, char *get);
  28.  
  29.     EXPORT    MCStr_cpy_lower
  30.  
  31. MCStr_cpy_lower
  32.  
  33. not_end_of_string
  34.  
  35.     LDRB    a3, [a2], #1
  36.  
  37.     CMP    a3, #65
  38.     BLO    cpy_not_AZ
  39.     CMP    a3, #90
  40.     BHI    cpy_not_AZ
  41.     ADD    a3, a3 ,#32
  42.  
  43. cpy_not_AZ
  44.  
  45.     STRB    a3, [a1], #1
  46.  
  47.     TEQ    a3, #0
  48.     BNE    not_end_of_string
  49.  
  50.     MOV    pc, lr
  51.  
  52.     END
  53.